Pascal Super Library/Pascal Super Library (CW International)(1997).bin/LIBRARY/TOT/DEMO.EXE/arc/DEMOV2.PAS

Pascal/Delphi Source File | 1991-02-10 | 569b | 28 lines

program DemoOverlay2;

Uses OVERLAY, DOS, CRT,
     OV2Init, totSYS, totLOOK, totINPUT, totFAST, totWIN,
     totIO1, totMSG;

{$O totWIN}
{$O totIO1}
{$O totMSG}

Var
   MsgWin : MessageOBJ;
begin
   Screen.Clear(white,'░'); {paint the screen}
   with MsgWin do
   begin
      Init(1,' Message ');
      AddLine('');
      AddLine('The message unit provides a');
      AddLine('very easy way of displaying');
      AddLine('pop-up messages in a move-');
      AddLine('able window.');
      AddLine('');
      Show;
      Done;
   end;
end.